home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / business / varin57d.zip / PRICES.SCR < prev    next >
Text File  |  1992-04-05  |  429b  |  27 lines
  1. sendline 'Go Prices'
  2. capture 'prices.log'
  3. wait 'Issue: '
  4. sendline 'DJ 30'
  5. wait ': '
  6. sendline 'M'
  7. wait '? '
  8. accept x
  9. sendline x
  10. wait '!'
  11. send ^M
  12. wait 'Issue: '
  13. sendline 'SP 500'
  14. wait '!'
  15. display 'Do you want SP 500 quarterly dividends (y/n)'
  16. accept z
  17. if z 'n' then goto endpgm
  18. else sendline 'go dividends'
  19. wait 'Issue: '
  20. sendline 'sp 500'
  21. wait '? '
  22. accept x
  23. sendline x
  24. wait '!'
  25. endpgm: capture off
  26. exit
  27.